home *** CD-ROM | disk | FTP | other *** search
/ MediaClips: Full Bloom / Aris MediaClips - Full Bloom.iso / mac / Full Bloom™ / Full Bloom™.rsrc / LENS_131_Find.bin < prev    next >
Text File  |  1993-05-18  |  2KB  |  85 lines
  1. ItemType: WIND
  2. Rect: 133,78,506,366
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 373,70
  9. MaxSize: 373,288
  10. Name: Find
  11. TextFont: Geneva
  12. TextSize: 9
  13. WhiteColor: -17477,-17477,-17477
  14.  
  15. ItemType: LBL
  16. Rect: 8,24,43,40
  17. TextFont: Chicago
  18. TextSize: 12
  19. Text: Find:
  20.  
  21. ItemType: TEXT
  22. Rect: 48,22,256,44
  23. TextFont: Chicago
  24. TextSize: 12
  25. LockText: FALSE
  26. Text: plane
  27.  
  28. ItemType: PUSH
  29. Rect: 272,40,352,56
  30. AutoSize: FALSE
  31. WhiteColor: -8739,-8739,-8739
  32. Name: Find
  33. DefaultItem: TRUE
  34. Script: wsFindHit
  35.  
  36. ItemType: PUSH
  37. Rect: 272,12,352,28
  38. WhiteColor: -8739,-8739,-8739
  39. Name: Cancel
  40. CancelItem: TRUE
  41. AutoClose: TRUE
  42.  
  43. ItemType: LINE
  44. Rect: 6,72,360,73
  45. WhiteColor: -17477,-17477,-17477
  46. Pen: Gray
  47.  
  48. ItemType: LBL
  49. Rect: 48,88,81,100
  50. Text: Found:
  51.  
  52. ItemType: TEXT
  53. Rect: 80,88,144,101
  54. AutoSize: FALSE
  55. WhiteColor: -17477,-17477,-17477
  56. Text: 0
  57.  
  58. ItemType: LIST
  59. Rect: 46,104,353,178
  60. DoubleClickItem: 11
  61. Text: 
  62. Script: put i8_Selection of window wdName into HowFarDown┬if HowFarDown ¡ empty then┬  findPICTname i8_SelectionText of window wdName┬end if┬if StartSelect = empty then put 1 into startSelect┬put hitPath into checkHitPath┬findInXCMD hitPath,findMe,startSelect,FALSE┬put the result into hitSelect┬put item 4 of hitSelect into startSelect┬put item 5 of hitSelect into endSelect┬if hitPath = checkHitPath then┬  if startSelect = 0 then┬    put 1 into startSelect┬    findInXCMD hitPath,findMe,startSelect,FALSE┬    put the result into hitSelect┬    put item 4 of hitSelect into startSelect┬    put item 5 of hitSelect into endSelect┬  end if┬end if┬set i9_Text of window wdName to hitPath
  63.  
  64. ItemType: TEXT
  65. Rect: 46,190,353,266
  66. Scrolling: TRUE
  67. Text: Text
  68.  
  69. ItemType: PICT
  70. Rect: 24,192,39,202
  71. Name: Open Folder
  72.  
  73. ItemType: PUSH
  74. Rect: 272,84,352,100
  75. AutoSize: FALSE
  76. WhiteColor: -8739,-8739,-8739
  77. Name: Show
  78. AutoClose: TRUE
  79. Script: get line 1 of hitPath┬put char 7 to length of it of it into windowName┬if last char of windowName = " " then delete last char of windowName┬showPicture┬
  80.  
  81. ItemType: TEXT
  82. Rect: 74,56,223,68
  83. Name: Instructions
  84. WhiteColor: -17477,-17477,-17477
  85. Text: (Click the mouse to stop search)